

   1 .
   2 . BARRACADE
   3 . VERSION 4.0
   4 . BY SUPER SOFTWARE
   5 .
   9 :RETURN ;NT=0;BC=240;FC=54;N=60;GOTO 90
  10 Z=RND (D)×2-1;BOX @(Z),@(Z+1),6,6,2;IF @(Z)>X @(Z)=@(Z)-10
  11 IF @(Z)<X @(Z)=@(Z)+10
  12 IF @(Z+1)>Y @(Z+1)=@(Z+1)-10
  13 IF @(Z+1)<Y @(Z+1)=@(Z+1)+10
  14 BOX @(Z),@(Z+1),6,6,1;NT=5;MU="Q";NT=0;RETURN 
  20 @(1)=-5;@(2)=0;@(3)=15;@(4)=20;@(5)=15;@(6)=0;@(7)=15;@(6)=-20;@(7)=35;@(8)=10;@(9)=35;@(10)=-10
  25 @(11)=45;@(12)=0
  30 FOR A=1TO D×2STEP 2;BOX @(A),@(A+1),6,6,1;NEXT A;RETURN 
  50 BOX 0,-35,160,10,2;FOR Z=T-1TO 1STEP -1;P=Z×10;P=-80+P;BOX P,-35,6,6,1;BOX P,-35,2,2,2;NEXT Z;RETURN 
  60 FOR A=1TO D×2STEP 2;BOX @(A),@(A+1),6,6,2;NEXT A;RETURN 
  90 CLEAR ;GOSUB 10000;T=T+1;GOSUB 50;T=T-1;GOTO 800
 100 X=-45;Y=0;BOX X,Y,6,6,3;BOX X,Y,2,2,2;GOSUB 20;CY=-40;CX=0;PRINT "*",
 190 BOX X,Y,6,6,2;X=X+JX(1)×10;R=R+JX(1);IF X>45X=-45
 210 IF X<-45X=45
 220 Y=Y+JY(1)×10;IF Y>20Y=20
 230 IF Y<-20Y=-20
 240 BOX X,Y,6,6,3;BOX X,Y,2,2,2;GOSUB 30;IF RND (Q)=1GOSUB 10
 260 IF PX(X,Y)GOTO 300
 262 LINE 0,-40,4;IF RND (N)=1GOSUB 900
 263 U=RND (100)-50;V=RND (50)-25;&(21)=31;&(19)=256-R×3;LINE U,V,3;LINE 0,-40,4;LINE U,V,3;&(19)=0
 270 IF R=BGOSUB 700
 290 GOTO 190
 300 GOSUB 60;T=T-1;GOTO 500
 400 CY=0;CX=-24;PRINT "GAME OVER",
 480 IF &(23)RUN 
 490 GOTO 480
 500 CY=40;CX=-30;PRINT "SCORE: ",;&(21)=31;D=5;FOR Z=1TO R;S=S+1;CX=9;CY=40;PRINT #4,S;&(19)=100-Z×2;NEXT Z
 520 &(21)=0;&(19)=0;IF T=0GOTO 400
 530 GOTO 800
 700 S=S+B;CY=32;CX=-15;PRINT "BONUS!";&(21)=31;FOR A=200TO 0STEP -4;&(19)=A;NEXT A;&(21)=0
 710 FOR Z=1TO 500;NEXT Z;T=T+1;GOSUB 50;NT=3;MU="Q";NT=0
 715 R=0;Q=Q-1;IF Q<1Q=1
 720 FOR A=1TO 5;CX=9;CY=40;PRINT #4,S;FOR M=1TO 75;NEXT M;NT=3;MU="T";NT=0;CX=9;CY=40;PRINT #4,H;FOR M=1TO 75;NEXT M;NEXT A
 730 BOX 0,32,160,10,2;N=30;D=6;S=S+H;CX=9;CY=40;PRINT #4,S;NT=10;MU="K";NT=0;RETURN 
 800 FOR Z=-35TO 0STEP 5;BOX -70,Z-5,6,6,2;BOX -70,Z,6,6,1;BOX -70,Z,2,2,2;NEXT Z
 810 BOX -70,0,6,6,2;FOR Z=-65TO -45STEP 10;BOX Z-10,0,6,6,2;BOX Z,0,6,6,1;BOX Z,0,2,2,2;NEXT Z
 890 R=0;GOSUB 50;GOTO 100
 900 LINE X,Y,3;FOR Z=1TO 2;FOR F=2TO 22STEP 2;BOX X,Y,F,F,3;&(21)=255;&(23)=255;NEXT F;NEXT Z
 910 LINE 0,-40,4;LINE X,Y,3;&(21)=0;&(23)=0;BOX X,Y,6,6,2;GOTO 300
10000 Q=5;S=0;R=0;T=5;B=50;H=500;D=5
10080 &(10)=30;BOX 0,0,104,54,1;BOX 0,0,100,50,2;FOR A=-40TO 40STEP 10;BOX A,0,1,50,1;NEXT A
10090 FOR A=-15TO 15STEP 10;BOX 0,A,100,1,1;NEXT A;&(10)=180;RETURN 

:RETURN 
>